/*                                                                                              */
/* DEFINE VARIABLE voutput AS CHARACTER  NO-UNDO initial "\\192.168.12.12\shared$\output\csv\". */
/*                                                                                              */
/* define variable vdb like ad_name_control initial "".                                         */

/* for first ad_mstr no-lock where ad_addr = "~~reports".                                       */
/* end.                                                                                         */
/* if avail ad_mstr then do:                                                                    */
/*     assign vdb =  ad_name_control .                                                          */
/* end.                                                                                         */
/*                                                                                              */
/*                                                                                              */
/* find code_mstr NO-LOCK WHERE code_fldname = "exptab2csv" and code_value = "output" no-error. */
/* if avail code_mstr then do:                                                                  */
/*     assign voutput = code_cmmt.                                                              */
/* end.                                                                                         */

output to value({1} + {2} + "code_mstr.csv").
 
FOR EACH code_mstr NO-LOCK WHERE code_fldname <> ""  :

        export delimiter "," {2} code_fldname code_value code_cmmt code_user1 code_user2 code_desc code__qadc01.

END.

output close.

 
